Namespace Database.Functions

    Public Module mFunctions

        Public Function TimeString(Optional ByVal AddSeconds As Integer = 0) As String

            Return Date.Now.AddSeconds(AddSeconds)

        End Function

    End Module

End Namespace